Set Up Steps

library(tidyverse)
library(sf)
library(geojsonsf)
library(mapview)

Small Cells

Start by loading ArcGIS data from SJ Open Data, listed at https://drive.google.com/file/d/1jurudjAPTcsmsb4FCiiM4ykO3J6G6_pM/view.

See https://cran.r-project.org/web/packages/geojsonsf/vignettes/geojson-sf-conversions.html for package to easily convert online geojson to sf. From the Small Cell page, click APIs and copy the GeoJSON url.

smallcell <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_198.geojson")
mapview(smallcell, zcol = "SCREENINGSTATUS")

Smart Poles

smartpole <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_229.geojson")
mapview(smartpole)

Wifi

wifi <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_221.geojson")
mapview(wifi)

Facebook Terragraph

facebook <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_222.geojson")
mapview(facebook)

Banners

banner <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_225.geojson")
mapview(banner)

Light Fixtures

# fixture <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_228.geojson")
# mapview(fixture)

Unknown Poles

# unknown <- geojson_sf("https://opendata.arcgis.com/datasets/d4cfb53686784b63b6da726786769c64_227.geojson")
# mapview(unknown)

Free Wifi Locations

freewifi <-
  read_csv("sj_freewifi.csv")